0 REM   WRITTEN FOR THE PET (MAY 78) BY         BRAD COMPTON.  ADAPTED FOR THE
1 REM   64 (MAY 83) BY STEVEN DARNOLD           BOX 201, ALEXANDRA, NEW ZEALAND.
3 POKE56,127:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164:CLR
7 REM
8 DEL$=""
9 PO$="":REM LINE 8 READS DEL$="[40 DELETES]"
10 I0=1
20 POKE53280,9:POKE53281,9
50 L0=0:W0=0
90 PRINT"[147][150]              S N O O P Y "
100 PRINT"    [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]"
110 PRINT"    0  1  2  3  4  5  6  7  8  9 10"
111 IFI0THEN30000
112 GOSUB10000
115 REM ** MAIN SECTION
116 IFL0>4THEN4000
117 IFW0>4THEN6000
120 S=INT(RND(1)*11-5)
130 R=INT(RND(1)*11-5)
140 IFR=SORABS(R-S)=10THEN130
145 PRINT"";DEL$
150 POKE32867+S*3,(S>R)*-60+(S<R)*-62
160 POKE32867+R*3,87
170 GETA$:IFA$<>""THEN170
171 TM=TI:H=1:PRINTPO$;DEL$;:PRINT"SHOT:  ";
172 IFSK=960THEN174
173 IFTI-TM>=SKTHENPRINTDEL$;"TIME'S UP![145]":FORI=1TO2000:NEXT:GOTO250
174 GETA$:IFA$=""OR(A$<>"-"ANDA$<"1"ORA$>"9")THEN172
176 PRINTA$;:IFA$="-"THENH=-H:GOTO172
177 H=H*VAL(A$)
178 IFABS(S+H)<=5THEN200
180 PRINTPO$;DEL$;H;"IS OUT OF RANGE.";
190 FORI=1TO2000:NEXT:PRINTDEL$:GOTO170
200 SP=SP+TI-TM
201 FORJ1=1TO3:FORJ=33395TO33407:POKEJ,46:POKEJ-1,32:NEXT:POKE33407,32:NEXT
207 FORJ=STOS+H-SGN(H)STEPSGN(H)
208 S=S+SGN(H)
209 IFJ=RGOTO220
210 POKE32867+J*3,32
215 IFJ=R-SGN(H)THEN230
220 POKE32867+(J+SGN(H))*3,(S>R)*-60+(S<R)*-62+(S=R)*-87
230 FORI=1TO200:NEXT
240 NEXT
242 IFS=RTHEN1000
250 REM ** MISS
251 L0=L0+1
252 FORJ=1TO16:PRINT:NEXT:PRINTTAB(18)"** BLAM!! **":FORI=1TO200:NEXT
255 RESTORE
260 FORJ=1TOINT(RND(1)*5)+1:READM1:NEXT
262 M2=INT(RND(1)*8):IFPEEK(M1+M2)=209THEN262
263 FORJ=1TO8:POKEM1+M2,81:FORI=1TO50:NEXT
265 POKEM1+M2,209
266 FORI=1TO50:NEXTI,J
270 FORI=1TO750:NEXT
280 PRINTPO$"[129]";
300 ONINT(RND(1)*5)+1GOSUB350,380,410,450,480
310 PRINT"[155]";:FORJ=1TO24:PRINT:NEXT:PRINTDEL$
320 FORI=1TO2000:NEXT
330 PRINTPO$;:FORJ=1TO8:PRINT"                 ":NEXT
340 GOTO115
350 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] RATS! GOT [221]":PRINT"[221] ME AGAIN! [221]":PRINT"[202][192][192][192][192][192][192][201][213][192][192][192][203]"
360 PRINT"       [202][203]":PRINTTAB(9);"[215]  [215] [215]"
370 RETURN
380 PRINT"[213][192][192][192][192][192][192][192][192][201]":PRINT"[221]        [221]":PRINT"[221] @%$&*! [221]":PRINT"[221]        [221]":PRINT"[202][192][192][192][192][192][201][213][192][203]"
390 PRINT"      [202][203]":PRINTTAB(10);"[215][215]"
400 RETURN
410 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]            [221]":PRINT"[221] CURSE YOU, [221]":PRINT"[221] RED BARON! [221]"
420 PRINT"[221]            [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][203]":PRINT"         [202][203]"
430 PRINTTAB(12);"[215][215]"
440 RETURN
450 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] HE HIT ME!?! [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][192][192][203]"
460 PRINT"         [202][203]":PRINTTAB(12);"[215][215]"
470 RETURN
480 PRINT"[213][192][192][192][192][192][201]":PRINT"[221]RATS![221]":PRINT"[202][192][192][192][201][213][203]":PRINT"    [202][203]"
490 PRINTTAB(7);"[215][215][215]"
500 RETURN
1000 REM ** HIT
1010 W0=W0+1
1020 FORJ=1TO3
1030 POKE32867+R*3,87
1040 FORI=1TO100:NEXT
1050 POKE32867+R*3,81
1060 FORI=1TO100:NEXT
1070 POKE32867+R*3,86
1080 FORI=1TO100:NEXT
1090 NEXT
1100 PRINTPO$"[129]";DEL$
1110 ONINT(RND(1)*3)+1GOSUB1150,1200,1250
1111 PRINTPO$"[155]";DEL$
1112 FORI=1TO2500:NEXT
1113 PRINTPO$;:FORJ=1TO8:PRINT"                   ":NEXT
1115 GOTO115
1150 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]  HEH-HEH!    [221]":PRINT"[221]I'VE HIT HIM  [221]"
1160 PRINT"[221]"W0"TIMES NOW!![221]":PRINT"[202][192][192][192][192][192][192][192][192][192][201][213][192][192][192][203]":PRINT"          [202][203]"
1170 PRINTTAB(12);"[215][215]"
1180 RETURN
1200 PRINT"[213][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] THAT'S  [221]":PRINT"[221]"W0"TIMES![221]":PRINT"[202][192][192][192][192][192][201][213][192][192][203]"
1210 PRINT"      [202][203]":PRINTTAB(9);"[215]  [215]  [215]"                
1220 RETURN
1250 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] HA! I'VE SHOT   [221]":PRINT"[221]  YOU"W0"TIMES,   [221]"
1260 PRINT"[221]   RED BARON!!   [221]":PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][201][213][192][192][192][192][203]"
1270 PRINT"            [202][203]":PRINTTAB(14);"[215] [215]"
1280 RETURN
4000 FORI=1TO35:POKE53280,1:POKE53281,1
4005 POKE53280,9:POKE53281,9:NEXT
4010 PRINTPO$;"[145]THE RED BARON SHOT YOU DOWN!"
4020 PRINT"[129]YOU HIT HIM";W0;"TIMES.[155]"
4030 GOTO20000
6000 REM ** WIN
6001 FORJ=1TO5:PRINTLEFT$(PO$,7);:PRINTTAB(28)"** BOOM! **[146]":FORI=1TO50:NEXT
6002 PRINTLEFT$(PO$,7);:PRINTTAB(28)"** BOOM! **":FORI=1TO50:NEXTI,J
6003 PRINTLEFT$(PO$,8);:FORJ=1TO15
6004 PRINTTAB(35)"   ":PRINTTAB(35)"[213][192][201]":PRINTTAB(36)"V":PRINTTAB(36)"[216][145][145][145]"
6005 FORI=1TO50:NEXTI,J
6006 PRINTTAB(35)"   ":PRINTTAB(36)" ":PRINTTAB(36)" ";
6007 PRINTLEFT$(PO$,8);DEL$
6009 A$="CADET  [157][157]JR. PILOTPILOT  [157][157]SR. PILOTACE":SP=INT((1400-SP)/200)
6010 PRINTPO$;"YOU SHOT DOWN THE RED BARON![129]"
6015 IFSP>4ANDL0=0THENPRINT"YOU ARE A NATIONAL HERO.":GOTO6022
6020 IFL0=0THENPRINT"YOU ARE AWARDED THE RANK OF "MID$(A$,(SP+1)*9-8,9)"."
6022 IFL0=0THENPRINT"[155]GREAT FLYING![155]":GOTO20000
6025 PRINT"HE HIT YOU"L0"TIMES.[155]"
6030 IFL0=1THENONINT(RND(1)*3)+1GOSUB6060,6070,6080       
6040 GOTO20000
6060 PRINT"NOT BAD.":RETURN
6070 PRINT"PRETTY GOOD.":RETURN
6080 PRINT"FAIRLY DECENT.":RETURN
9000 DATA33468,33507,33548,33588,33628
10000 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
10110 PRINTTAB(17)"[155]     [213][192][201]"
10120 PRINTTAB(17)"[160][160][160]  [169][146] [215][155][192][150][209]"
10130 PRINTTAB(17)"[160] [129][210][198][192][155] [146][129][201][155][178][192][203]"
10140 PRINTTAB(17)"[160] [129][198][196][196][178][203][155][171][201] "
10150 PRINTTAB(17)"[160]  [160][198][179][160][202][177][201]"
10160 PRINTTAB(17)"[158][160] [169][160][160][160][160][160][160][160] [223][146]"
10170 PRINTTAB(17)"[160][169][163][163][163][163][163][163][163][163][163][163][223][146]"
10180 PRINTTAB(17)"[160]  [163][163][163][163][163][163][163][163][146]"
10190 PRINTTAB(17)"[160]  [163][163][163][163][163][163][163][163][146]"
10200 PRINTTAB(17)"   [163][163][163][163][163][163][163][163][146][155]"
11000 RETURN
20000 END
30000 REM ** INSTRUCTIONS
30001 I0=0
30002 PRINTCHR$(14);
30010 PRINT"[155]";TAB(10);"O";TAB(22);"<"
30020 PRINT:PRINT:PRINTTAB(10);"^";TAB(22);"^"
30030 PRINTTAB(6);"[210][197][196] [194][193][210][207][206]";TAB(20);"[211][206][207][207][208][217]"
30040 PRINT:PRINT"[129]    [217]OU ARE A [215]ORLD [215]AR [201] FLYING ACE,
30050 [153]"OUT TO GET THE (null)ED PEEKARON.
30060 PRINT"    [212]O HIT HIM, ENTER THE POSITIVE OR
30070 [153]"NEGATIVE DISTANCE BETWEEN YOU AND THE
30080 PRINT"[210]ED [194]ARON.  [201]F YOU ENTER IT CORRECTLY,
30090 [153]"YOUR SHOT WILL HIT HIM.  RIGHT$F NOT, HE WILL";
30100 [153]"HIT YOU.  SYS(RIGHT$N THE ABOVE EXAMPLE, YOU
30105 PRINT"WOULD NEED A -4 TO HIT THE [210]ED [194]ARON.)
30110 [153]"FORRIGHT$F YOU HIT THE PEEKARON FIVE TIMES, HE WILL";
30120 [153]"CRASH.  RIGHT$F HE HITS YOUR (null)OPWITH LENAMEL
30125 PRINT"FIVE TIMES, YOU CRASH.
30140 [153]"    (null)OU WILL HAVE TO HURRY TO SHOOT THE
30145 PRINT"[194]ARON BEFORE HE SHOOTS YOU.
31000 [153][199](14);
31009 [153]"LIST        (null)RESS (null)LEFT$RIGHT$ASC(null)WAIT TO BEGIN.";:[146]653,1,1:[146]653,1
31020 SK[178]290
31025 [153][199](142);
31027 X$[178]PO$:[143] (KLUGE!
31030 [137]50